﻿<!--#include file="mymin.asp"-->
<card title="添加友链"><p><%

dim selectmenu
set rs=server.createobject("adodb.recordset")
rs.open "select classid,class from 74hu_linkc order by classid",myconn,3,1
if not rs.eof then
	Do While not rs.eof
		selectmenu=selectmenu&"<option value="""&rs("classid")&""">"&rs("class")&"</option>"
		rs.MoveNext
	Loop
	call link_(selectmenu)
else
	w "请先添加类别后，再添加友链<br/>"
end if
rs.close
set rs=nothing

sub link_(ex)
%>
友链名称:<input name="name<%=time_r%>" maxlength="10" size="10" value=""/><br/>
友链简称:<input name="short<%=time_r%>" maxlength="2" size="10" value=""/><br/>
网址(需http://):<input name="link<%=time_r%>" maxlength="200" value="http://"/><br/>
网站分类:<select name="class<%=time_r%>" value="1"><%=ex%></select><br/>
<anchor>确认提交
<go href="Links_addcl.asp?sid=<%=sid%>" method="post" accept-charset="utf-8">
<postfield name="name" value="$(name<%=time_r%>)"/>
<postfield name="short" value="$(short<%=time_r%>)"/>
<postfield name="link" value="$(link<%=time_r%>)"/>
<postfield name="class" value="$(class<%=time_r%>)"/>
</go></anchor>
<%end sub%>
<br/>----------<br/>
<a href='mymin_index.asp?sid=<%=sid%>'>[友链管理]</a>
<%Call Last%>